home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 July / Ahoy_Magazine_86-07_1986_Double_L.d64 / token lister 1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  269b  |  11 lines
  1. 0 print"[147]":poke53280,5:poke53281,0:poke646,7
  2. 1 print"commodares problem #27-4:"
  3. 2 print"     token lister"
  4. 3 print"solution by "
  5. 4 print"     james borden"
  6. 5 print"> > >  c-64 only  < < <"
  7. 6 rem
  8. 10 z=41118:for x=128 to 203:print x;
  9. 20 a=peek(z) :z=z+1 :if a<128 then print chr$(a);:goto 20
  10. 30 print chr$(a-128),:next
  11.